######### Editando alguns parmetros grficos
esaligna <- read.csv("esaligna.csv", header=TRUE sep=";")
head(esalingna)
### Aumentando o tamanho das fontes:
par(tcl=0.5, bty="l", cex=1.5 )
plot(egrandis$dap~egrandis$h, xlab="dimetro a altura do peito(cm)", ylab="altura (m)", font=2, bty="l", tcl=0.3)
title("Espalhagrama - Altura (x) e DAP (y) em Eucalyptus Saligna", cex.main = 2, font.main=4, col.main="black")

######### Dois grficos juntos
par(mfrow=c(1,2))
boxplot(esaligna$dap~esaligna$talhao, xlab="Talho", ylab="DAP (cm)")
###inserindo letra
text(x=6.5, y=22.5, labels="A", cex=2)
### Grfico 2
esaligna2 = aggregate(x=esaligna$dap, by=list(esaligna$talhao), FUN=mean)
colnames(esaligna2)=c("talhao", "media")
dp= tapply(esaligna$dap,esaligna$talhao, FUN=sd)
plot(esaligna2$media~esaligna2$talhao, xlab="Talho", ylab="DAP Mdia+Desv.Pad", cex=2)
arrows(esaligna2$talhao,esaligna2$media-dp,esaligna2$talhao,esaligna2$media+dp, angle=90, code=3, length=0.05)
###inserindo letra
> text(x=31, y=15.2, labels="B", cex=2)

